home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / token.e < prev    next >
Encoding:
Text File  |  1995-12-27  |  399 b   |  23 lines
  1.  
  2. -> Copyright © 1995, Guichard Damien.
  3.  
  4. -> Eiffel 3.0 lexical tokens are Eiffel entities too.
  5. -> They are the language's lowest level construct: the lexical entities.
  6.  
  7. OPT MODULE
  8. OPT EXPORT
  9.  
  10. MODULE '*strings','*treed_entity'
  11.  
  12. -> Eiffel tokens
  13. OBJECT token OF treed_entity
  14. ENDOBJECT
  15.  
  16. -> Constructor.
  17. PROC create(name,type) OF token
  18.   self.name:=name
  19.   self.int:=hash(name)
  20.   self.type:=type
  21. ENDPROC
  22.  
  23.